10 PRINT"[147]JUST A SEC!":GOSUB900:GOSUB800
20 FORJ=0TO7:X=200:U=J:IFJ>3THENX=280:U=J-4
30 SYSDS:J,J,1,1,X,U*42+60,0, 5:NEXT
40 PRINT"[155]50 X=X+1":PRINT:PRINT"60 IF X<20000":PRINT"  THEN 50":X=0
50 X=X+1
55 GETA$:IFA$<>""THEN65
60 IFX <2000 THEN 50
65 GOSUB800:PRINT"[155] NESTED ":PRINT:PRINT" GOSUBS"
100 S=0:K=20:G=0
105 S=S+1:IFS<KTHENGOSUB105:G=G+1
110 IFG<19THENRETURN
120 GETA$:IFA$=""THEN100
130 GOSUB800:PRINT"[155] NESTED ":PRINT:PRINT" FOR/NEXTS"
140 FORJ=1TO5 :FORK=1TO5:FORQ=1TO5:FORH=1TO5:NEXT:NEXT:NEXT:NEXT
150 GETA$:IFA$=""THEN140
160 GOSUB800:PRINT"[155] CALCULATE":PRINT" 123/2.678+13":PRINT"*7^3-SIN(.33)"
165 S=123/2.678*7^3-SIN(.33)
170 GETA$:IFA$=""THEN165
799 GOSUB800:END
800 KD$=""
805 PRINTCHR$(14);"[147][129]         ";TAB(22);"[159][146]PAGE 0";TAB(32);"PAGE 1"
810 PRINT"[129] [158]VISABLE[129] [146]";TAB(13);"[159]CHIP I/O"
820 PRINT"[129] [158]   64  [129] [146]"
825 PRINT"[129]         "
830 PRINT" OPERATION    "
835 FORJ=1TO8:PRINT"[155]              ":NEXT
840 PRINT"              "
850 PRINT:PRINT:PRINT"[159] HIT A KEY ":PRINT" FOR NEXT  ":PRINT" FUNCTION  "
855 PRINTLEFT$(KD$,10);TAB(17);"FACC"
860 PRINTLEFT$(KD$,12);TAB(15);"CHRGET"
865 PRINTLEFT$(KD$,15);TAB(16);"JIFFY"
870 PRINTLEFT$(KD$,19);TAB(17);"CRSR"
872 PRINTLEFT$(KD$,24);TAB(32);"6502";
875 PRINTLEFT$(KD$,25);TAB(32);"STACK";
880 PRINTLEFT$(KD$,10);
899 RETURN
900 Y=12*4096:DS=49162:MV=49246:V=53248:POKEV+33,0
910 READX:IFX<0THENRETURN
920 POKEY,X:Y=Y+1:GOTO910
1000 DATA 32,115,0,32,158,173,32,247,183,96,32,139,192,32,0
1010 DATA 192,165,20,166,2,157,248,7,32,0,192,165,20,162,29
1020 DATA 32,162,192,32,0,192,165,20,162,23,32,162,192,32,97
1030 DATA 192,32,0,192,165,20,72,162,28,32,162,192,32,0,192
1040 DATA 165,20,166,2,157,39,208,104,240,16,32,0,192,165,20
1050 DATA 141,37,208,32,0,192,165,20,141,38,216,169,1,162,21
1060 DATA 32,162,192,96,32,139,192,32,0,192,165,21,72,165,20
1070 DATA 72,32,0,192,165,2,10,170,232,165,20,157,0,208,202
1080 DATA 104,157,0,208,104,162,16,32,162,192,169,0,141,30,208
1090 DATA 141,31,208,96,32,0,192,165,20,41,7,133,2,170,169
1100 DATA 1,224,0,240,4,10,202,208,252,133,78,96,164,78,201
1110 DATA 0,240,6,152,29,0,208,208,6,152,73,255,61,0,208
1120 DATA 157,0,208,96,0,0,7,14,234,234,234,234,32,0,192
1130 DATA 165,20,41,3,170,189,184,192,133,78,169,212,133,79,32
1140 DATA 0,192,165,20,160,5,145,78,32,0,192,165,20,160,6
1150 DATA 145,78,32,112,193,165,20,133,2,160,4,145,78,32,0
1160 DATA 192,165,20,160,1,145,78,32,0,192,165,20,160,0,145
1170 DATA 78,165,2,201,65,208,20,32,0,192,165,20,41,15,160
1180 DATA 3,145,78,32,0,192,165,20,160,2,145,78,169,15,141
1190 DATA 24,212,96,32,0,192,165,20,41,3,170,189,184,192,133
1200 DATA 78,169,212,133,79,165,21,133,2,169,0,160,4,145,78
1210 DATA 32,0,192,165,20,160,1,145,78,32,0,192,165,20,160
1220 DATA 0,145,78,165,2,201,65,208,20,32,0,192,165,20,41
1230 DATA 15,160,3,145,78,32,0,192,165,20,160,2,145,78,165
1240 DATA 2,160,4,145,78,96,0,0,169,0,160,4,145,78,76
1250 DATA 0,192,-1